home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
CMDLINE.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-09
|
604b
|
26 lines
' CMDLINE.BAS gets command line directly from PSP, preserving
' original case.
'
' Author: Christy Gemmell
' Date: 26/3/1992
'
' $DYNAMIC
'
' Change the following line to '$INCLUDE: 'QB.BI' for QB 4.5
' $INCLUDE: 'QBX.BI'
'
DIM SHARED InRegs AS RegType, OutRegs AS RegType
InRegs.ax = &H5100
INTERRUPT &H21, InRegs, OutRegs
PSP% = OutRegs.bx: OffSet% = &H80
DEF SEG = PSP%
CmdLen% = PEEK(OffSet%)
Cmd$ = ""
FOR I% = 1 TO CmdLen%
Cmd$ = Cmd$ + CHR$(PEEK(OffSet% + I%))
NEXT I%
PRINT Cmd$
END